1 ' *** OISAC 2 *** DEFCHR$ ***
10 CLS:CLEAR:PRINTTAB(9)"*** DEFCHR$ ***"TAB(0)"Code ASCII (252-255) : ";:INPUT@3;X:IFX>255OR X<252THENBEEP:GOTO10ELSEDIMC$(6):CLS:FORI=0TO6:PRINT"["I+1"] =>";:INPUT@5;C$(I):NEXT:FORJ=1TO5:D=0:F=3:C=3:GOSUB30:D=4:F=6:C=7:GOSUB30:NEXT
20 ERASE C$:DEFCHR$(X)=D$:CALC$=CHR$(X):PRINT"CALC$["CALC$"]="D$;:END
30 FORI=D TOF:IFMID$(C$(I),J,1)="*"THENA=A+2^(C-I)
40 NEXT:D$=D$+RIGHT$(HEX$(A),1):A=0:RETURN